home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1995 February: Tool Chest / Dev.CD Feb 95 / Dev.CD Feb 95.toast / Tool Chest / Interfaces / Universal Interfaces 2.0a3 / Universal AIncludes / ASRegistry.a < prev    next >
Encoding:
Text File  |  1994-11-11  |  10.6 KB  |  282 lines  |  [TEXT/MPS ]

  1. ;
  2. ;    File:        ASRegistry.a
  3. ;
  4. ;    Copyright:    © 1984-1994 by Apple Computer, Inc.
  5. ;                All rights reserved.
  6. ;
  7. ;    Version:    Universal Interfaces 2.0a3  ETO #16, MPW prerelease.  Friday, November 11, 1994. 
  8. ;
  9. ;    Bugs?:        If you find a problem with this file, send the file and version
  10. ;                information (from above) and the problem description to:
  11. ;
  12. ;                    Internet:    apple.bugs@applelink.apple.com
  13. ;                    AppleLink:    APPLE.BUGS
  14. ;
  15. ;
  16.  
  17.     IF &TYPE('__ASREGISTRY__') = 'UNDEFINED' THEN
  18. __ASREGISTRY__ SET 1
  19.  
  20.  
  21.     IF &TYPE('__APPLEEVENTS__') = 'UNDEFINED' THEN
  22.     include 'AppleEvents.a'
  23.     ENDIF
  24. ;        include 'Errors.a'                                            ;
  25. ;            include 'ConditionalMacros.a'                            ;
  26. ;        include 'Types.a'                                            ;
  27. ;        include 'Memory.a'                                            ;
  28. ;            include 'MixedMode.a'                                    ;
  29. ;        include 'OSUtils.a'                                        ;
  30. ;        include 'Events.a'                                            ;
  31. ;            include 'Quickdraw.a'                                    ;
  32. ;                include 'QuickdrawText.a'                            ;
  33. ;        include 'EPPC.a'                                            ;
  34. ;            include 'PPCToolbox.a'                                    ;
  35. ;                include 'AppleTalk.a'                                ;
  36. ;            include 'Processes.a'                                    ;
  37. ;                include 'Files.a'                                    ;
  38. ;        include 'Notification.a'                                    ;
  39.  
  40.     IF &TYPE('__AEREGISTRY__') = 'UNDEFINED' THEN
  41.     include 'AERegistry.a'
  42.     ENDIF
  43.  
  44.     IF &TYPE('__AEOBJECTS__') = 'UNDEFINED' THEN
  45.     include 'AEObjects.a'
  46.     ENDIF
  47.  
  48. keyAETarget                        EQU        'targ'                ;  0x74617267  
  49. keySubjectAttr                    EQU        'subj'                ;  0x7375626a  
  50. ; Magic 'returning' parameter: 
  51. keyASReturning                    EQU        'Krtn'                ;  0x4b72746e  
  52. ; AppleScript Specific Codes: 
  53. kASAppleScriptSuite                EQU        'ascr'                ;  0x61736372  
  54. kASTypeNamesSuite                EQU        'tpnm'                ;  0x74706e6d  
  55. ; dynamic terminologies 
  56. typeAETE                        EQU        'aete'                ;  0x61657465  
  57. typeAEUT                        EQU        'aeut'                ;  0x61657574  
  58. kGetAETE                        EQU        'gdte'                ;  0x67647465  
  59. kGetAEUT                        EQU        'gdut'                ;  0x67647574  
  60. kUpdateAEUT                        EQU        'udut'                ;  0x75647574  
  61. kUpdateAETE                        EQU        'udte'                ;  0x75647465  
  62. kCleanUpAEUT                    EQU        'cdut'                ;  0x63647574  
  63. kASComment                        EQU        'cmnt'                ;  0x636d6e74  
  64. kASLaunchEvent                    EQU        'noop'                ;  0x6e6f6f70  
  65. keyScszResource                    EQU        'scsz'                ;  0x7363737A  
  66. typeScszResource                EQU        'scsz'                ;  0x7363737A  
  67. ; subroutine calls 
  68. kASSubroutineEvent                EQU        'psbr'                ;  0x70736272  
  69. keyASSubroutineName                EQU        'snam'
  70.  
  71. ; Operator Events: 
  72. ; Binary: 
  73. kASAdd                            EQU        '+   '                ;  0x2b202020  
  74. kASSubtract                        EQU        '-   '                ;  0x2d202020  
  75. kASMultiply                        EQU        '*   '                ;  0x2a202020  
  76. kASDivide                        EQU        '/   '                ;  0x2f202020  
  77. kASQuotient                        EQU        'div '                ;  0x64697620  
  78. kASRemainder                    EQU        'mod '                ;  0x6d6f6420  
  79. kASPower                        EQU        '^   '                ;  0x5e202020  
  80. kASEqual                        EQU        kAEEquals
  81. kASNotEqual                        EQU        '≠   '                ;  0xad202020  
  82. kASGreaterThan                    EQU        kAEGreaterThan
  83. kASGreaterThanOrEqual            EQU        kAEGreaterThanEquals
  84. kASLessThan                        EQU        kAELessThan
  85. kASLessThanOrEqual                EQU        kAELessThanEquals
  86. kASComesBefore                    EQU        'cbfr'                ;  0x63626672  
  87. kASComesAfter                    EQU        'cafr'                ;  0x63616672  
  88. kASConcatenate                    EQU        'ccat'                ;  0x63636174  
  89. kASStartsWith                    EQU        kAEBeginsWith
  90. kASEndsWith                        EQU        kAEEndsWith
  91. kASContains                        EQU        kAEContains
  92.  
  93. kASAnd                            EQU        kAEAND
  94. kASOr                            EQU        kAEOR
  95. ; Unary: 
  96. kASNot                            EQU        kAENOT
  97. kASNegate                        EQU        'neg '                ;  0x6e656720  
  98. keyASArg                        EQU        'arg '
  99.  
  100. ; event code for the 'error' statement 
  101. kASErrorEventCode                EQU        'err '                ;  0x65727220  
  102. kOSAErrorArgs                    EQU        'erra'                ;  0x65727261  
  103. ; Properties: 
  104. pLength                            EQU        'leng'                ;  0x6c656e67  
  105. pReverse                        EQU        'rvse'                ;  0x72767365  
  106. pRest                            EQU        'rest'                ;  0x72657374  
  107. pInherits                        EQU        'c@#^'                ;  0x6340235e  
  108. ; User-Defined Record Fields: 
  109. keyASUserRecordFields            EQU        'usrf'                ;  0x75737266  
  110. typeUserRecordFields            EQU        typeAEList
  111.  
  112. ; Prepositions: 
  113. keyASPrepositionAt                EQU        'at  '                ;  0x61742020  
  114. keyASPrepositionIn                EQU        'in  '                ;  0x696e2020  
  115. keyASPrepositionFrom            EQU        'from'                ;  0x66726f6d  
  116. keyASPrepositionFor                EQU        'for '                ;  0x666f7220  
  117. keyASPrepositionTo                EQU        'to  '                ;  0x746f2020  
  118. keyASPrepositionThru            EQU        'thru'                ;  0x74687275  
  119. keyASPrepositionThrough            EQU        'thgh'                ;  0x74686768  
  120. keyASPrepositionBy                EQU        'by  '                ;  0x62792020  
  121. keyASPrepositionOn                EQU        'on  '                ;  0x6f6e2020  
  122. keyASPrepositionInto            EQU        'into'                ;  0x696e746f  
  123. keyASPrepositionOnto            EQU        'onto'                ;  0x6f6e746f  
  124. keyASPrepositionBetween            EQU        'btwn'                ;  0x6274776e  
  125. keyASPrepositionAgainst            EQU        'agst'                ;  0x61677374  
  126. keyASPrepositionOutOf            EQU        'outo'                ;  0x6f75746f  
  127. keyASPrepositionInsteadOf        EQU        'isto'                ;  0x6973746f  
  128. keyASPrepositionAsideFrom        EQU        'asdf'                ;  0x61736466  
  129. keyASPrepositionAround            EQU        'arnd'                ;  0x61726e64  
  130. keyASPrepositionBeside            EQU        'bsid'                ;  0x62736964  
  131. keyASPrepositionBeneath            EQU        'bnth'                ;  0x626e7468  
  132. keyASPrepositionUnder            EQU        'undr'
  133.  
  134. keyASPrepositionOver            EQU        'over'                ;  0x6f766572  
  135. keyASPrepositionAbove            EQU        'abve'                ;  0x61627665  
  136. keyASPrepositionBelow            EQU        'belw'                ;  0x62656c77  
  137. keyASPrepositionApartFrom        EQU        'aprt'                ;  0x61707274  
  138. keyASPrepositionGiven            EQU        'givn'                ;  0x6769766e  
  139. keyASPrepositionWith            EQU        'with'                ;  0x77697468  
  140. keyASPrepositionWithout            EQU        'wout'                ;  0x776f7574  
  141. keyASPrepositionAbout            EQU        'abou'                ;  0x61626f75  
  142. keyASPrepositionSince            EQU        'snce'                ;  0x736e6365  
  143. keyASPrepositionUntil            EQU        'till'
  144.  
  145. ; Terminology & Dialect things: 
  146. kDialectBundleResType            EQU        'Dbdl'                ;  0x4462646c  
  147. ; AppleScript Classes and Enums: 
  148. cConstant                        EQU        typeEnumerated
  149. cClassIdentifier                EQU        pClass
  150. cObjectBeingExamined            EQU        typeObjectBeingExamined
  151. cList                            EQU        typeAEList
  152. cSmallReal                        EQU        typeSMFloat
  153. cReal                            EQU        typeFloat
  154. cRecord                            EQU        typeAERecord
  155. cReference                        EQU        cObjectSpecifier
  156. cUndefined                        EQU        'undf'                ;  0x756e6466  
  157. cSymbol                            EQU        'symb'                ;  0x73796d62  
  158. cLinkedList                        EQU        'llst'                ;  0x6c6c7374  
  159. cVector                            EQU        'vect'                ;  0x76656374  
  160. cEventIdentifier                EQU        'evnt'                ;  0x65766e74  
  161. cKeyIdentifier                    EQU        'kyid'                ;  0x6b796964  
  162. cUserIdentifier                    EQU        'uid '                ;  0x75696420  
  163. cPreposition                    EQU        'prep'                ;  0x70726570  
  164. cKeyForm                        EQU        enumKeyForm
  165. cScript                            EQU        'scpt'                ;  0x73637074  
  166. cHandler                        EQU        'hand'                ;  0x68616e64  
  167. cProcedure                        EQU        'proc'
  168.  
  169. cClosure                        EQU        'clsr'                ;  0x636c7372  
  170. cRawData                        EQU        'rdat'                ;  0x72646174  
  171. cString                            EQU        typeChar
  172. cStringClass                    EQU        typeChar
  173. cNumber                            EQU        'nmbr'                ;  0x6e6d6272  
  174. cListOrRecord                    EQU        'lr  '                ;  0x6c722020  
  175. cListOrString                    EQU        'ls  '                ;  0x6c732020  
  176. cListRecordOrString                EQU        'lrs '                ;  0x6c727320  
  177. cNumberOrDateTime                EQU        'nd  '                ;  0x6e642020  
  178. cNumberDateTimeOrString            EQU        'nds '                ;  0x6e647320  
  179. cSeconds                        EQU        'scnd'                ;  0x73636e64  
  180. enumBooleanValues                EQU        'boov'                ;  0x626f6f76  
  181. kAETrue                            EQU        typeTrue
  182. kAEFalse                        EQU        typeFalse
  183. enumMiscValues                    EQU        'misc'                ;  0x6d697363  
  184. kASCurrentApplication            EQU        'cura'                ;  0x63757261  
  185. ; User-defined property ospecs: 
  186. formUserPropertyID                EQU        'usrp'
  187.  
  188. ; Global properties: 
  189. pASIt                            EQU        'it  '                ;  0x69742020  
  190. pASMe                            EQU        'me  '                ;  0x6d652020  
  191. pASResult                        EQU        'rslt'                ;  0x72736c74  
  192. pASSpace                        EQU        'spac'                ;  0x73706163  
  193. pASReturn                        EQU        'ret '                ;  0x72657420  
  194. pASTab                            EQU        'tab '                ;  0x74616220  
  195. pASPi                            EQU        'pi  '                ;  0x70692020  
  196. pASParent                        EQU        'pare'                ;  0x70617265  
  197. kASInitializeEventCode            EQU        'init'                ;  0x696e6974  
  198. pASPrintLength                    EQU        'prln'                ;  0x70726c6e  
  199. pASPrintDepth                    EQU        'prdp'                ;  0x70726470  
  200. pASTopLevelScript                EQU        'ascr'
  201.  
  202. ; Considerations 
  203. kAECase                            EQU        'case'                ;  0x63617365  
  204. kAEDiacritic                    EQU        'diac'                ;  0x64696163  
  205. kAEWhiteSpace                    EQU        'whit'                ;  0x77686974  
  206. kAEHyphens                        EQU        'hyph'                ;  0x68797068  
  207. kAEExpansion                    EQU        'expa'                ;  0x65787061  
  208. kAEPunctuation                    EQU        'punc'                ;  0x70756e63  
  209. kAEZenkakuHankaku                EQU        'zkhk'                ;  0x7a6b686b  
  210. kAESmallKana                    EQU        'skna'                ;  0x736b6e61  
  211. kAEKataHiragana                    EQU        'hika'                ;  0x68696b61  
  212. ; AppleScript considerations: 
  213. kASConsiderReplies                EQU        'rmte'                ;  0x726d7465  
  214. enumConsiderations                EQU        'cons'
  215.  
  216. cCoercion                        EQU        'coec'                ;  0x636f6563  
  217. cCoerceUpperCase                EQU        'txup'                ;  0x74787570  
  218. cCoerceLowerCase                EQU        'txlo'                ;  0x74786c6f  
  219. cCoerceRemoveDiacriticals        EQU        'txdc'                ;  0x74786463  
  220. cCoerceRemovePunctuation        EQU        'txpc'                ;  0x74787063  
  221. cCoerceRemoveHyphens            EQU        'txhy'                ;  0x74786879  
  222. cCoerceOneByteToTwoByte            EQU        'txex'                ;  0x74786578  
  223. cCoerceRemoveWhiteSpace            EQU        'txws'                ;  0x74787773  
  224. cCoerceSmallKana                EQU        'txsk'                ;  0x7478736b  
  225. cCoerceZenkakuhankaku            EQU        'txze'                ;  0x74787a65  
  226. cCoerceKataHiragana                EQU        'txkh'                ;  0x74786b68  
  227. ; Lorax things: 
  228. cZone                            EQU        'zone'                ;  0x7a6f6e65  
  229. cMachine                        EQU        'mach'                ;  0x6d616368  
  230. cAddress                        EQU        'addr'                ;  0x61646472  
  231. cRunningAddress                    EQU        'radd'                ;  0x72616464  
  232. cStorage                        EQU        'stor'
  233.  
  234. ; DateTime things: 
  235. pASWeekday                        EQU        'wkdy'                ;  0x776b6479  
  236. pASMonth                        EQU        'mnth'                ;  0x6d6e7468  
  237. pASDay                            EQU        'day '                ;  0x64617920  
  238. pASYear                            EQU        'year'                ;  0x79656172  
  239. pASTime                            EQU        'time'                ;  0x74696d65  
  240. pASDateString                    EQU        'dstr'                ;  0x64737472  
  241. pASTimeString                    EQU        'tstr'                ;  0x74737472  
  242. ; Months 
  243. cMonth                            EQU        pASMonth
  244. cJanuary                        EQU        'jan '                ;  0x6a616e20  
  245. cFebruary                        EQU        'feb '                ;  0x66656220  
  246. cMarch                            EQU        'mar '                ;  0x6d617220  
  247. cApril                            EQU        'apr '                ;  0x61707220  
  248. cMay                            EQU        'may '                ;  0x6d617920  
  249. cJune                            EQU        'jun '                ;  0x6a756e20  
  250. cJuly                            EQU        'jul '                ;  0x6a756c20  
  251. cAugust                            EQU        'aug '                ;  0x61756720  
  252. cSeptember                        EQU        'sep '                ;  0x73657020  
  253. cOctober                        EQU        'oct '                ;  0x6f637420  
  254. cNovember                        EQU        'nov '                ;  0x6e6f7620  
  255. cDecember                        EQU        'dec '
  256.  
  257. ; Weekdays 
  258. cWeekday                        EQU        pASWeekday
  259. cSunday                            EQU        'sun '                ;  0x73756e20  
  260. cMonday                            EQU        'mon '                ;  0x6d6f6e20  
  261. cTuesday                        EQU        'tue '                ;  0x74756520  
  262. cWednesday                        EQU        'wed '                ;  0x77656420  
  263. cThursday                        EQU        'thu '                ;  0x74687520  
  264. cFriday                            EQU        'fri '                ;  0x66726920  
  265. cSaturday                        EQU        'sat '                ;  0x73617420  
  266. ; AS 1.1 Globals: 
  267. pASQuote                        EQU        'quot'                ;  0x71756f74  
  268. pASSeconds                        EQU        'secs'                ;  0x73656373  
  269. pASMinutes                        EQU        'min '                ;  0x6d696e20  
  270. pASHours                        EQU        'hour'                ;  0x686f7572  
  271. pASDays                            EQU        'days'                ;  0x64617973  
  272. pASWeeks                        EQU        'week'                ;  0x7765656b  
  273. ; Writing Code things: 
  274. cWritingCodeInfo                EQU        'citl'                ;  0x6369746c  
  275. pScriptCode                        EQU        'pscd'                ;  0x70736364  
  276. pLangCode                        EQU        'plcd'                ;  0x706c6364  
  277. ; Magic Tell and End Tell events for logging: 
  278. kASMagicTellEvent                EQU        'tell'                ;  0x74656c6c  
  279. kASMagicEndTellEvent            EQU        'tend'
  280.  
  281.     ENDIF ; __ASREGISTRY__
  282.